object HandOverForm: THandOverForm
  Left = 0
  Top = 0
  Caption = #35843#24230#23460#20132#25509#29677#25253#21578#20070'   v1.6.5  '#23665#35199#22320#26041#30005#21147#26377#38480#20844#21496' '#35843#24230#20449#24687#20013#24515
  ClientHeight = 908
  ClientWidth = 1173
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  Position = poScreenCenter
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  object Label6: TLabel
    Left = 30
    Top = 368
    Width = 65
    Height = 15
    Caption = #19978#32423#25351#31034#65306
  end
  object Panel2: TPanel
    Left = 0
    Top = 72
    Width = 1173
    Height = 836
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 1
    ExplicitWidth = 1096
    object Splitter1: TSplitter
      Left = 253
      Top = 1
      Height = 815
      Color = clBtnFace
      ParentColor = False
      ExplicitLeft = 267
      ExplicitHeight = 809
    end
    object PageControlM: TPageControl
      Left = 256
      Top = 1
      Width = 916
      Height = 815
      ActivePage = TabSheet1
      Align = alClient
      DoubleBuffered = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'Segoe UI'
      Font.Style = []
      ParentDoubleBuffered = False
      ParentFont = False
      TabOrder = 0
      ExplicitWidth = 839
      object TabSheet1: TTabSheet
        Caption = #35843#24230#23460#20132#25509#29677#25253#21578#20070#65288'A'#65289
        object GroupBox1: TGroupBox
          Left = 0
          Top = 0
          Width = 908
          Height = 87
          Align = alTop
          Caption = #20540#29677#26085#26399#19982#20154#21592
          TabOrder = 0
          ExplicitWidth = 831
          object Label4: TLabel
            Left = 636
            Top = 25
            Width = 42
            Height = 19
            Caption = #27668#20505#65306
          end
          object labHandOvered: TLabel
            Left = 787
            Top = 11
            Width = 19
            Height = 78
            Caption = #24050#20132#29677
            Font.Charset = ANSI_CHARSET
            Font.Color = clNavy
            Font.Height = -19
            Font.Name = #24494#36719#38597#40657
            Font.Style = [fsBold]
            ParentFont = False
            Visible = False
            WordWrap = True
          end
          object dbeHandMan: TDBLabeledEdit
            Left = 388
            Top = 22
            Width = 224
            Height = 27
            DataField = 'hand_man'
            DataSource = dsHandOver
            TabOrder = 1
            EditLabel.Width = 70
            EditLabel.Height = 19
            EditLabel.Caption = #20540#29677#20154#21592#65306
            LabelPosition = lpLeft
            LabelSpacing = 2
          end
          object dbcWeather: TDBComboBox
            Left = 684
            Top = 22
            Width = 86
            Height = 27
            DataField = 'weather'
            DataSource = dsHandOver
            Items.Strings = (
              #26228
              #38452
              #22810#20113
              #26228#36716#38452
              #38452#36716#26228
              #23567#38632
              #20013#38632
              #22823#38632
              #23567#38634
              #20013#38634
              #22823#38634)
            TabOrder = 0
          end
          object dbeDept: TDBLabeledEdit
            Left = 684
            Top = 52
            Width = 86
            Height = 27
            TabStop = False
            Color = clBtnFace
            DataField = 'dept'
            DataSource = dsHandOver
            ReadOnly = True
            TabOrder = 2
            EditLabel.Width = 56
            EditLabel.Height = 19
            EditLabel.Caption = #20998#20844#21496#65306
            LabelPosition = lpLeft
            LabelSpacing = 2
          end
          object dbeOverMan: TDBLabeledEdit
            Left = 388
            Top = 53
            Width = 224
            Height = 27
            DataField = 'over_man'
            DataSource = dsHandOver
            TabOrder = 3
            EditLabel.Width = 70
            EditLabel.Height = 19
            EditLabel.Caption = #25509#29677#20154#21592#65306
            LabelPosition = lpLeft
            LabelSpacing = 2
          end
          object dbeHandTime: TDBLabeledEdit
            Left = 82
            Top = 22
            Width = 224
            Height = 27
            DataField = 'hand_time'
            DataSource = dsHandOver
            ReadOnly = True
            TabOrder = 4
            EditLabel.Width = 70
            EditLabel.Height = 19
            EditLabel.Caption = #25509#29677#26102#38388#65306
            LabelPosition = lpLeft
            LabelSpacing = 2
          end
          object dbeOverTime: TDBLabeledEdit
            Left = 82
            Top = 53
            Width = 224
            Height = 27
            DataField = 'over_time'
            DataSource = dsHandOver
            ReadOnly = True
            TabOrder = 5
            EditLabel.Width = 70
            EditLabel.Height = 19
            EditLabel.Caption = #20132#29677#26102#38388#65306
            LabelPosition = lpLeft
            LabelSpacing = 2
          end
        end
        object GroupBox2: TGroupBox
          Left = 0
          Top = 87
          Width = 908
          Height = 694
          Align = alClient
          Caption = #20132#25509#29677#20869#23481
          TabOrder = 1
          ExplicitWidth = 831
          object ScrollBox1: TScrollBox
            Left = 2
            Top = 21
            Width = 904
            Height = 671
            HorzScrollBar.Color = clBtnFace
            HorzScrollBar.Increment = 74
            HorzScrollBar.ParentColor = False
            HorzScrollBar.Style = ssFlat
            HorzScrollBar.ThumbSize = 12
            HorzScrollBar.Visible = False
            VertScrollBar.Range = 800
            VertScrollBar.Smooth = True
            VertScrollBar.Tracking = True
            Align = alClient
            AutoScroll = False
            AutoSize = True
            BevelInner = bvNone
            BevelKind = bkFlat
            BorderStyle = bsNone
            Color = clCream
            ParentColor = False
            TabOrder = 0
            ExplicitWidth = 827
            DesignSize = (
              885
              669)
            object lable11: TLabel
              Left = 36
              Top = 24
              Width = 70
              Height = 19
              Caption = #19978#32423#25351#31034#65306
            end
            object Label5: TLabel
              Left = 17
              Top = 80
              Width = 98
              Height = 19
              Caption = #20020#26102#26041#24335#35843#25972#65306
            end
            object Label7: TLabel
              Left = 36
              Top = 139
              Width = 70
              Height = 19
              Caption = #30005#32593#20107#25925#65306
            end
            object Label8: TLabel
              Left = 36
              Top = 189
              Width = 70
              Height = 19
              Caption = #38480#30005#24773#20917#65306
            end
            object Label9: TLabel
              Left = 36
              Top = 245
              Width = 70
              Height = 19
              Caption = #35774#22791#32570#38519#65306
            end
            object Label10: TLabel
              Left = 36
              Top = 372
              Width = 70
              Height = 19
              Caption = #36890#20449#36828#21160#65306
            end
            object Label11: TLabel
              Left = 36
              Top = 424
              Width = 70
              Height = 19
              Caption = #20445#25252#26356#25913#65306
            end
            object Label12: TLabel
              Left = 31
              Top = 485
              Width = 84
              Height = 19
              Caption = #25509#22320#32447#20449#24687#65306
            end
            object Label13: TLabel
              Left = 45
              Top = 547
              Width = 61
              Height = 65
              AutoSize = False
              Caption = #19979#29677#39044#23450#24037#20316#21450#32852#31995#20107#39033#65306
              WordWrap = True
            end
            object Label14: TLabel
              Left = 36
              Top = 312
              Width = 70
              Height = 19
              Caption = #35774#22791#26816#20462#65306
            end
            object DBMemo2: TDBMemo
              Left = 121
              Top = 3
              Width = 751
              Height = 55
              Margins.Right = 2
              Anchors = [akLeft, akTop, akRight]
              BevelInner = bvNone
              DataField = 'sup_instructions'
              DataSource = dsHandOver
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -16
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              ParentShowHint = False
              ScrollBars = ssVertical
              ShowHint = True
              TabOrder = 0
              WantTabs = True
              ExplicitWidth = 674
            end
            object DBMemo3: TDBMemo
              Left = 121
              Top = 58
              Width = 751
              Height = 68
              Margins.Right = 2
              Anchors = [akLeft, akTop, akRight]
              BevelInner = bvNone
              DataField = 'temp_adjustment'
              DataSource = dsHandOver
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -16
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              ParentShowHint = False
              ScrollBars = ssVertical
              ShowHint = True
              TabOrder = 1
              WantTabs = True
              ExplicitWidth = 674
            end
            object DBMemo4: TDBMemo
              Left = 121
              Top = 126
              Width = 751
              Height = 45
              Margins.Right = 2
              Anchors = [akLeft, akTop, akRight]
              BevelInner = bvNone
              DataField = 'accident'
              DataSource = dsHandOver
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -16
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              ParentShowHint = False
              ScrollBars = ssVertical
              ShowHint = True
              TabOrder = 2
              WantTabs = True
              ExplicitWidth = 674
            end
            object DBMemo5: TDBMemo
              Left = 121
              Top = 171
              Width = 751
              Height = 51
              Margins.Right = 2
              Anchors = [akLeft, akTop, akRight]
              BevelInner = bvNone
              DataField = 'power_rationing'
              DataSource = dsHandOver
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -16
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              ParentShowHint = False
              ScrollBars = ssVertical
              ShowHint = True
              TabOrder = 3
              WantTabs = True
              ExplicitWidth = 674
            end
            object DBMemo6: TDBMemo
              Left = 121
              Top = 223
              Width = 751
              Height = 68
              Margins.Right = 2
              Anchors = [akLeft, akTop, akRight]
              BevelInner = bvNone
              DataField = 'equipment_defect'
              DataSource = dsHandOver
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -16
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              ParentShowHint = False
              ScrollBars = ssVertical
              ShowHint = True
              TabOrder = 4
              WantTabs = True
              ExplicitWidth = 674
            end
            object DBMemo7: TDBMemo
              Left = 121
              Top = 291
              Width = 751
              Height = 69
              Margins.Right = 2
              Anchors = [akLeft, akTop, akRight]
              BevelInner = bvNone
              DataField = 'equipment_repair'
              DataSource = dsHandOver
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -16
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              ParentShowHint = False
              ScrollBars = ssVertical
              ShowHint = True
              TabOrder = 5
              WantTabs = True
              ExplicitWidth = 674
            end
            object DBMemo8: TDBMemo
              Left = 121
              Top = 471
              Width = 751
              Height = 56
              Margins.Right = 2
              Anchors = [akLeft, akTop, akRight]
              BevelInner = bvNone
              DataField = 'grounding_information'
              DataSource = dsHandOver
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -16
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              ParentShowHint = False
              ScrollBars = ssVertical
              ShowHint = True
              TabOrder = 6
              WantTabs = True
              ExplicitWidth = 674
            end
            object DBMemo9: TDBMemo
              Left = 121
              Top = 414
              Width = 751
              Height = 57
              Margins.Right = 2
              Anchors = [akLeft, akTop, akRight]
              BevelInner = bvNone
              DataField = 'protect_changes'
              DataSource = dsHandOver
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -16
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              ParentShowHint = False
              ScrollBars = ssVertical
              ShowHint = True
              TabOrder = 7
              WantTabs = True
              ExplicitWidth = 674
            end
            object DBMemo10: TDBMemo
              Left = 121
              Top = 360
              Width = 751
              Height = 52
              Margins.Right = 2
              Anchors = [akLeft, akTop, akRight]
              BevelInner = bvNone
              DataField = 'communication'
              DataSource = dsHandOver
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -16
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              ParentShowHint = False
              ScrollBars = ssVertical
              ShowHint = True
              TabOrder = 8
              WantTabs = True
              ExplicitWidth = 674
            end
            object DBMemo11: TDBMemo
              Left = 121
              Top = 527
              Width = 751
              Height = 105
              Margins.Right = 2
              Anchors = [akLeft, akTop, akRight]
              BevelInner = bvNone
              DataField = 'scheduled_work'
              DataSource = dsHandOver
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -16
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              ParentShowHint = False
              ScrollBars = ssVertical
              ShowHint = True
              TabOrder = 9
              WantTabs = True
              ExplicitWidth = 674
            end
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = #35843#24230#23460#20132#25509#29677#25253#21578#20070#65288'B'#65289
        ImageIndex = 1
        object Panel3: TPanel
          Left = 0
          Top = 0
          Width = 908
          Height = 41
          Align = alTop
          TabOrder = 0
          ExplicitWidth = 831
          object Label1: TLabel
            Left = 60
            Top = 8
            Width = 45
            Height = 14
            Caption = #26102#38388#65306
            Font.Charset = GB2312_CHARSET
            Font.Color = clGreen
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label2: TLabel
            Left = 392
            Top = 8
            Width = 45
            Height = 14
            Caption = #35760#20107#65306
            Font.Charset = GB2312_CHARSET
            Font.Color = clGreen
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            ParentFont = False
          end
          object btnlogAppend: TBitBtn
            Left = 461
            Top = 10
            Width = 85
            Height = 25
            Caption = #22686#21152#35760#24405'&A'
            Default = True
            ImageIndex = 1
            ModalResult = 1
            NumGlyphs = 2
            Style = bsWin31
            TabOrder = 0
            StyleName = 'Windows'
            OnClick = btnlogAppendClick
          end
          object btnlogDel: TBitBtn
            Left = 643
            Top = 10
            Width = 85
            Height = 25
            Caption = #21024#38500#35760#24405'&X'
            Default = True
            ImageIndex = 1
            ModalResult = 1
            NumGlyphs = 2
            Style = bsWin31
            TabOrder = 1
            StyleName = 'Windows'
            OnClick = btnlogDelClick
          end
          object btnlogInsert: TBitBtn
            Left = 552
            Top = 10
            Width = 85
            Height = 25
            Caption = #25554#20837#35760#24405'&I'
            Default = True
            ImageIndex = 1
            ModalResult = 1
            NumGlyphs = 2
            Style = bsWin31
            TabOrder = 2
            StyleName = 'Windows'
            OnClick = btnlogInsertClick
          end
          object btnlogRefresh: TBitBtn
            Left = 734
            Top = 10
            Width = 85
            Height = 25
            Caption = #21047#26032#35760#24405'&R'
            Default = True
            ImageIndex = 1
            ModalResult = 1
            NumGlyphs = 2
            Style = bsWin31
            TabOrder = 3
            StyleName = 'Windows'
            OnClick = btnlogRefreshClick
          end
        end
        object ScrollBox2: TScrollBox
          Left = 0
          Top = 41
          Width = 908
          Height = 740
          HorzScrollBar.Color = clBtnFace
          HorzScrollBar.Increment = 74
          HorzScrollBar.ParentColor = False
          HorzScrollBar.Style = ssFlat
          HorzScrollBar.ThumbSize = 12
          HorzScrollBar.Visible = False
          VertScrollBar.Position = 62
          VertScrollBar.Range = 800
          VertScrollBar.Smooth = True
          VertScrollBar.Tracking = True
          Align = alClient
          AutoScroll = False
          AutoSize = True
          BevelInner = bvNone
          BevelKind = bkFlat
          BorderStyle = bsNone
          Color = clCream
          ParentColor = False
          TabOrder = 1
          ExplicitLeft = 537
          ExplicitWidth = 294
          object dbgLog: TDBCtrlGrid
            Left = 0
            Top = -62
            Width = 889
            Height = 800
            Align = alClient
            Color = clBtnFace
            DataSource = dsHandOverlog
            PanelHeight = 80
            PanelWidth = 872
            ParentColor = False
            ParentShowHint = False
            TabOrder = 0
            RowCount = 10
            SelectedColor = clCream
            ShowHint = True
            ExplicitWidth = 857
            object dbeLogtime: TDBEdit
              Left = 10
              Top = 22
              Width = 159
              Height = 29
              BevelOuter = bvRaised
              BevelKind = bkFlat
              Color = clWhite
              DataField = 'log_time'
              DataSource = dsHandOverlog
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -16
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
            end
            object dbeRecord: TDBMemo
              Left = 175
              Top = 6
              Width = 666
              Height = 62
              Anchors = [akLeft, akTop, akRight, akBottom]
              Ctl3D = True
              DataField = 'log_record'
              DataSource = dsHandOverlog
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -16
              Font.Name = 'Segoe UI'
              Font.Style = []
              HideSelection = False
              ParentCtl3D = False
              ParentFont = False
              TabOrder = 1
              WantTabs = True
              ExplicitWidth = 608
            end
          end
        end
      end
    end
    object PanelList: TPanel
      Left = 1
      Top = 1
      Width = 252
      Height = 815
      Align = alLeft
      BevelOuter = bvNone
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 1
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 252
        Height = 56
        Align = alTop
        TabOrder = 0
        object dpQuyDate: TDateTimePicker
          Left = 6
          Top = 17
          Width = 126
          Height = 27
          Date = 44764.000000000000000000
          Time = 0.820352858798287300
          DateFormat = dfLong
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = 'Segoe UI'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object btnQuery: TBitBtn
          Left = 138
          Top = 17
          Width = 66
          Height = 25
          Caption = #26597#35810'&F'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = 'Segoe UI'
          Font.Style = []
          ImageIndex = 1
          ModalResult = 6
          NumGlyphs = 2
          ParentFont = False
          Style = bsWin31
          TabOrder = 1
          StyleName = 'Windows'
          OnClick = btnQueryClick
        end
        object cbDept: TComboBox
          Left = 213
          Top = 19
          Width = 76
          Height = 23
          TabOrder = 2
          Text = #20840#37096
          Visible = False
          OnChange = cbDeptChange
          Items.Strings = (
            #20840#37096
            #33970#21439
            #23433#27901
            #20065#23425
            #26388#24030
            #20852#21439
            #20020#21439
            #26041#23665
            #31163#30707
            #20132#21475
            #30707#27004
            #20013#38451
            #26611#26519)
        end
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 56
        Width = 252
        Height = 759
        Align = alClient
        DataSource = dsHandOverList
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = 'Segoe UI'
        Font.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = 'Segoe UI'
        TitleFont.Style = []
        OnDblClick = DBGrid1DblClick
        Columns = <
          item
            Expanded = False
            FieldName = 'hand_time'
            Width = 110
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'hand_man'
            Width = 110
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dept'
            Width = 110
            Visible = True
          end>
      end
    end
    object StatusBar: TStatusBar
      Left = 1
      Top = 816
      Width = 1171
      Height = 19
      Panels = <>
      ParentShowHint = False
      ShowHint = False
      SimplePanel = True
      SimpleText = #22320#30005#20844#21496' '#35843#24230#20449#24687#20013#24515
      ExplicitWidth = 1094
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 1173
    Height = 72
    Align = alTop
    TabOrder = 0
    ExplicitWidth = 1096
    object labTitle: TLabel
      Left = 114
      Top = 9
      Width = 385
      Height = 27
      Caption = #23665#35199#22320#26041#30005#21147#26377#38480#20844#21496' #'#20998#20844#21496' '#35843#24230#20540#29677#20013
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -20
      Font.Name = #24494#36719#38597#40657
      Font.Style = [fsBold]
      ParentFont = False
    end
    object labTime: TLabel
      Left = 546
      Top = 14
      Width = 100
      Height = 19
      Caption = #26085#26399#26102#38388#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -19
      Font.Name = #26999#20307
      Font.Style = []
      ParentFont = False
    end
    object labWeek: TLabel
      Left = 759
      Top = 13
      Width = 51
      Height = 21
      Caption = #26143#26399#26085
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -16
      Font.Name = 'Segoe UI'
      Font.Style = []
      ParentFont = False
    end
    object btnHandOver: TBitBtn
      Left = 397
      Top = 43
      Width = 88
      Height = 25
      Caption = #20132#29677'&D'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'Segoe UI'
      Font.Style = []
      ImageIndex = 1
      Kind = bkIgnore
      NumGlyphs = 2
      ParentFont = False
      Style = bsWin31
      TabOrder = 1
      StyleName = 'Windows'
      OnClick = btnHandOverClick
    end
    object btnWord: TBitBtn
      Left = 529
      Top = 43
      Width = 88
      Height = 25
      Caption = #23548#20986'&W'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'Segoe UI'
      Font.Style = []
      ImageIndex = 1
      Kind = bkRetry
      NumGlyphs = 2
      ParentFont = False
      Style = bsWin31
      TabOrder = 3
      StyleName = 'Windows'
      OnClick = btnWordClick
    end
    object btnSaveCur: TBitBtn
      Left = 261
      Top = 43
      Width = 88
      Height = 25
      Caption = #20445#23384'&S'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'Segoe UI'
      Font.Style = []
      ImageIndex = 1
      Kind = bkAll
      NumGlyphs = 2
      ParentFont = False
      Style = bsWin31
      Spacing = 2
      TabOrder = 0
      StyleName = 'Windows'
      OnClick = btnSaveCurClick
    end
    object btnCur: TBitBtn
      Left = 643
      Top = 44
      Width = 107
      Height = 25
      Caption = #24403#21069#29677'&H'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'Segoe UI'
      Font.Style = []
      ImageIndex = 1
      Kind = bkAll
      NumGlyphs = 2
      ParentFont = False
      Style = bsWin31
      Spacing = 2
      TabOrder = 2
      Visible = False
      StyleName = 'Windows'
      OnClick = btnCurClick
    end
  end
  object ADOConnection: TADOConnection
    ConnectionString = 
      'Provider=MSOLEDBSQL.1;Password=sa6784;Persist Security Info=True' +
      ';User ID=sa;Initial Catalog=dmis;Data Source=.;Use Procedure for' +
      ' Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=W' +
      'ANGW-DELL;Initial File Name="";Use Encryption for Data=False;Tag' +
      ' with column collation when possible=False;MARS Connection=False' +
      ';DataTypeCompatibility=0;Trust Server Certificate=False;Server S' +
      'PN="";Application Intent=READWRITE;MultiSubnetFailover=False;Use' +
      ' FMTONLY=False;Authentication="";Access Token="";TransparentNetw' +
      'orkIPResolution=True'
    DefaultDatabase = 'dmis'
    LoginPrompt = False
    Provider = 'MSOLEDBSQL.1'
    AfterDisconnect = ADOConnectionAfterDisconnect
    Left = 864
    Top = 16
  end
  object quyHandOverLog: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    BeforePost = quyHandOverLogBeforePost
    DataSource = dsHandOver
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select report_id, log_time, log_record, order_id  from handover_' +
        'report_log'
      'where report_id=:id'
      'order by log_time')
    Left = 970
    Top = 16
    object quyHandOverLogreport_id: TIntegerField
      FieldName = 'report_id'
    end
    object quyHandOverLoglog_time: TStringField
      FieldName = 'log_time'
      Size = 30
    end
    object quyHandOverLogorder_id: TSmallintField
      FieldName = 'order_id'
    end
    object quyHandOverLoglog_record: TStringField
      DisplayWidth = 2000
      FieldName = 'log_record'
      Size = 2000
    end
  end
  object dsHandOverlog: TDataSource
    DataSet = quyHandOverLog
    Left = 1002
    Top = 16
  end
  object TimerA: TTimer
    OnTimer = TimerATimer
    Left = 16
    Top = 448
  end
  object quyHandOver: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'dept'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select * from handover_report'
      'where handover_yes=0  and  dept = :dept')
    Left = 904
    Top = 16
    object quyHandOverid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object quyHandOverweather: TStringField
      FieldName = 'weather'
    end
    object quyHandOverdept: TStringField
      FieldName = 'dept'
      Size = 50
    end
    object quyHandOversup_instructions: TStringField
      DisplayWidth = 2000
      FieldName = 'sup_instructions'
      Size = 2000
    end
    object quyHandOvertemp_adjustment: TStringField
      DisplayWidth = 2000
      FieldName = 'temp_adjustment'
      Size = 2000
    end
    object quyHandOveraccident: TStringField
      DisplayWidth = 2000
      FieldName = 'accident'
      Size = 2000
    end
    object quyHandOverpower_rationing: TStringField
      DisplayWidth = 2000
      FieldName = 'power_rationing'
      Size = 2000
    end
    object quyHandOverequipment_defect: TStringField
      DisplayWidth = 2000
      FieldName = 'equipment_defect'
      Size = 2000
    end
    object quyHandOverequipment_repair: TStringField
      DisplayWidth = 2000
      FieldName = 'equipment_repair'
      Size = 2000
    end
    object quyHandOvercommunication: TStringField
      DisplayWidth = 2000
      FieldName = 'communication'
      Size = 2000
    end
    object quyHandOverprotect_changes: TStringField
      DisplayWidth = 2000
      FieldName = 'protect_changes'
      Size = 2000
    end
    object quyHandOvergrounding_information: TStringField
      DisplayWidth = 2000
      FieldName = 'grounding_information'
      Size = 2000
    end
    object quyHandOverscheduled_work: TStringField
      DisplayWidth = 2000
      FieldName = 'scheduled_work'
      Size = 2000
    end
    object quyHandOverhandover_yes: TIntegerField
      FieldName = 'handover_yes'
    end
    object quyHandOvercreate_time: TDateTimeField
      FieldName = 'create_time'
    end
    object quyHandOverhand_man: TStringField
      FieldName = 'hand_man'
      Size = 50
    end
    object quyHandOverover_man: TStringField
      FieldName = 'over_man'
      Size = 50
    end
    object quyHandOverhandover_time: TDateTimeField
      FieldName = 'handover_time'
    end
    object quyHandOverhand_time: TDateTimeField
      FieldName = 'hand_time'
    end
    object quyHandOverover_time: TDateTimeField
      FieldName = 'over_time'
    end
  end
  object dsHandOver: TDataSource
    DataSet = quyHandOver
    Left = 936
    Top = 16
  end
  object cmdHandOver: TADOCommand
    Connection = ADOConnection
    Parameters = <>
    Left = 1040
    Top = 16
  end
  object quyHandOverList: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'dept'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      
        'select id, convert(varchar(10),hand_time,120)  as hand_time, han' +
        'd_man, dept'
      'from handover_report'
      'where  dept = :dept and 1=1'
      'order by id desc')
    Left = 24
    Top = 344
    object quyHandOverListid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
      Visible = False
    end
    object quyHandOverListhand_time: TStringField
      DisplayLabel = #20540#29677#26085#26399
      FieldName = 'hand_time'
      ReadOnly = True
      Size = 10
    end
    object quyHandOverListhand_man: TStringField
      DisplayLabel = #20540#29677#20154
      FieldName = 'hand_man'
      Size = 50
    end
    object quyHandOverListdept: TStringField
      DisplayLabel = #20998#20844#21496
      FieldName = 'dept'
      Size = 50
    end
  end
  object dsHandOverList: TDataSource
    AutoEdit = False
    DataSet = quyHandOverList
    Left = 72
    Top = 344
  end
  object AutoSaveTimer: TTimer
    Interval = 100000
    OnTimer = AutoSaveTimerTimer
    Left = 96
    Top = 448
  end
end
